home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / CambridgeMedlineTutor / ccMedTut2 / card_21913.txt < prev    next >
Encoding:
Text File  |  1992-02-24  |  2.7 KB  |  120 lines
  1. -- card: 21913 from stack: in
  2. -- bmap block id: 22224
  3. -- flags: 0000
  4. -- background id: 11419
  5. -- name: 
  6. ----- HyperTalk script -----
  7. --Handlers below are not very elegant, but they work - should be able to put the EnterInField script as part of On ArrowKey handler, under option that goes to next card, but I can't get this to work - does work this way, mapping arrow action to another handler - Chose Enter InField just because it's a handler that won't ever be used for any thing else [in fact, can't be used for most part, because stack is pro tected & user can't get cursor in field]
  8.  
  9. On ArrowKey which
  10.   if which is "down" then EnterInField
  11.   else if which is "right" then beep
  12.   else if which is "left" then beep
  13.   else if which is "up" then beep
  14. End ArrowKey
  15.  
  16. On EnterInField
  17.   undissolve
  18. End EnterInField
  19.  
  20.  
  21.  
  22. -- part 8 (field)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=142 top=133 right=184 bottom=314
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 256
  32. -- line height: 16
  33. -- part name: 
  34.  
  35.  
  36. -- part 9 (field)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=142 top=181 right=198 bottom=259
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 2048
  46. -- line height: 16
  47. -- part name: 
  48.  
  49.  
  50. -- part 10 (field)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=142 top=197 right=232 bottom=311
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 256
  60. -- line height: 16
  61. -- part name: 
  62.  
  63.  
  64. -- part 12 (field)
  65. -- low flags: 00
  66. -- high flags: 2004
  67. -- rect: left=36 top=258 right=330 bottom=451
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 18
  75. -- part name: red
  76.  
  77.  
  78. -- part contents for card part 3
  79. ----- text -----
  80. ... and now hit the up arrow key to move the highlight back to Menus...
  81.  
  82. -- part contents for card part 8
  83. ----- text -----
  84. Menus
  85. Commands
  86. Change configuration
  87.  
  88. -- part contents for card part 9
  89. ----- text -----
  90. DOS commands
  91.  
  92. -- part contents for card part 10
  93. ----- text -----
  94. change compact Disc
  95. eXit
  96.  
  97. -- part contents for background part 2
  98. ----- text -----
  99. 88
  100.  
  101. -- part contents for background part 3
  102. ----- text -----
  103. Main Menu
  104.  
  105. -- part contents for background part 5
  106. ----- text -----
  107. card id 42013
  108.  
  109. -- part contents for background part 8
  110. ----- text -----
  111. 42013
  112.  
  113. -- part contents for background part 11
  114. ----- text -----
  115.  
  116.  
  117.  
  118. -- part contents for card part 12
  119. ----- text -----
  120.    Move the highlight down to "change compact Disc," with the down arrow ...